home *** CD-ROM | disk | FTP | other *** search
/ Art Fundamentals - Core Concepts in Art / Art Fundamentals: Core Concepts in Art.iso / pc / color.dxr / 00229.ls < prev    next >
Encoding:
Text File  |  2001-07-16  |  882 b   |  32 lines

  1. on mouseDown me
  2.   repeat while the mouseDown
  3.     if the locV of sprite 44 = 100 then
  4.       sprite(44).color = rgb(0, 255, 255)
  5.       set the blend of sprite 44 to 100
  6.     else
  7.       if the locV of sprite 44 < 100 then
  8.         set the blend of sprite 44 to 100
  9.         redr = (55 + (45 - the locV of sprite 44)) * 5.66699999999999982
  10.         redg = 255
  11.         redb = redg
  12.         sprite(44).color = rgb(redr, redg, redb)
  13.       else
  14.         set the blend of sprite 44 to (101 + (225 - the locV of sprite 44)) * 0.44400000000000001
  15.       end if
  16.     end if
  17.     set the locV of sprite 44 to the mouseV
  18.     set the locV of sprite 63 to the mouseV
  19.     if the blend of sprite 44 < 10 then
  20.       showit(63, 63)
  21.     else
  22.       hideit(63, 63)
  23.     end if
  24.     updateStage()
  25.   end repeat
  26. end
  27.  
  28. on mouseUp me
  29.   set the locV of sprite 44 to the mouseV
  30.   set the locV of sprite 63 to the mouseV
  31. end
  32.